home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1998…eptember: Technology Seed / September 98 ADC Seed CD.toast / LaserWriter 8.6b5 Seed / LaserWriter 8.6b5 / PrintingLib / PrintingLib.rsrc / PS_-8148 < prev    next >
Encoding:
Text File  |  1998-08-12  |  1.2 KB  |  112 lines
  1. %%BeginFile: lw8_bubn-2.1
  2. /$t Z
  3. /$p Z
  4. /$s Z
  5. /$o 1. def
  6. /2state? F def
  7. /ps Z
  8. level2 startnoload
  9. /pushcolor/currentrgbcolor ld
  10. /popcolor/setrgbcolor ld
  11. /setcmykcolor where
  12. {
  13. pop/currentcmykcolor where
  14. {
  15. pop/pushcolor/currentcmykcolor ld
  16. /popcolor/setcmykcolor ld
  17. }if
  18. }if
  19. level2 endnoload level2 not startnoload
  20. /pushcolor
  21. {
  22. currentcolorspace $c eq
  23. {
  24. currentcolor currentcolorspace T
  25. }{
  26. currentcmykcolor F
  27. }ifelse
  28. }bd
  29. /popcolor
  30. {
  31. {
  32. setcolorspace setcolor
  33. }{
  34. setcmykcolor
  35. }ifelse
  36. }bd
  37. level2 not endnoload
  38. /pushstatic
  39. {
  40. 2state?
  41. $o
  42. $t
  43. $p
  44. $s
  45. $cs
  46. ps
  47. }bd
  48. /popstatic
  49. {
  50. /ps xs
  51. /$cs xs
  52. /$s xs
  53. /$p xs
  54. /$t xs
  55. /$o xs
  56. /2state? xs
  57. }bd
  58. /pushgstate
  59. {
  60. currentpoint
  61. pushcolor
  62. currentlinewidth
  63. currentlinecap
  64. currentlinejoin
  65. currentdash exch aload length
  66. np clippath pathbbox
  67. $m currentmatrix aload pop
  68. }bd
  69. /popgstate
  70. {
  71. $m astore setmatrix
  72. 2 index sub exch
  73. 3 index sub exch
  74. rC
  75. array astore exch setdash
  76. setlinejoin
  77. setlinecap
  78. lw
  79. popcolor
  80. np :M
  81. }bd
  82. /bu
  83. {
  84. errordict/nocurrentpoint{pop 0 0}put
  85. 2state?
  86. {
  87. pushgstate
  88. gR
  89. }if
  90. pushgstate
  91. gR
  92. pushgstate
  93. pushstatic
  94. pm restore
  95. mTS setmatrix
  96. }bd
  97. /bn
  98. {
  99. /pm save store
  100. popstatic
  101. popgstate
  102. gS
  103. popgstate
  104. 2state?
  105. {
  106. gS
  107. popgstate
  108. }if
  109. }bd
  110. /cpat{pop 64 div setgray 8{pop}repeat}bd
  111. %%EndFile
  112.